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-- Windowdefs.Mesa Edited by Wick on May 18, 1977 12:08 PM 

DIRECTORY 
SegmentDefs: FROM "segmentdefs" , 
MenuDefs: FROM "menudefs", 
StreamDefs: FROM "streamdefs" . 
RectangleDefs: FROM "rectangledef s" ; 

DEFINITIONS FROM SegmentDefs, MenuDefs, StreamDefs, RectangleDefs; 

WindowDefs: DEFINITIONS =« 
BEGIN 

-- some TYPE'S and POINTERS 
WindowType: TYPE = {clear, random, scratch, file, scriptfile}; 
Window/Handle: TYPE = POINTER TO Displ ayWindow; 

-- procedures implementing Windows 

CreateOisplayWindow: PUBLIC PROCEDURE 

[WindowType, Rptr, DisplayHandle, StreamHandle, STRING] 

RETUKNS[WindowHandle]; 
AlterWindowType: PUBLIC PROCEDURE 

[WindowHandle. WindowType, STRING]; 
DestroyDisplayWindow: PUBLIC PROCEDURE 

[WindowHandle] ; 
Unl inkDisplayWindow: PUBLIC PROCEDURE 

[WindowHandle] ; 
PaintDisplayWindow: PUBLIC PROCEDURE 

[WindowHandle] ; 
DrawDisplayWindow: PUBLIC PROCEDURE 

[WindowHandle] ; 
FindDisplayWindow: PUBLIC PROCEDURE 

[x. y: INTEGER] 

RETURNS[WindowHandle, xCoord, yCoord]; 
SetCurrentDisplayWindow; PUBLIC PROCEDURE 

[WindowHandle]; 
SetFileForWindO"': PUBLIC PROCEDURE 

[WindowHandle, STRING]; 
SetFileHandleForWindow: PUBLIC PROCEDURE 

[WindowHandle, FileHandle, STRING]; 
SetlndexForWindow: PUBLIC PROCEDURE 

[WindowHandle. Streamlndex] ; 
SetPositionForWindow: PUBLIC PROCEDURE 

[WindowHandle, INTEGER]; 
GetCurrentDisplayWindow: PUBLIC PROCEDURE 

RETURNS[WindowHandle]; 
GetLineTable: PUBLIC PROCEDURE 

RETURNS[POINTER]; 
OpenDisplayWindows: PUBLIC PROCEDURE; 
CloseDisplayWindows: PUBLIC PROCEDURE; 
RepaintDisplayWindows: PROCEDURE [mapdata: BMHandle]; 

--RECORDS 

DisplayWindow: TYPE = RECORD 

[ 

link: WindowHandle, 

type: WindowType, 

name: STRING, 

menu: MenuHandle, 

displ ayp roc: PROCEDURE[WindowHandl e] , 

rectangle: Rptr, 

ds: DisplayHandle, 

ks: StreamHandle, 

file: DiskHandle, 

fileindex: Streamlndex, 

temp index: Streamlndex, 

eofindex: Streamlndex, 

selec t ion : Sel ect ion 

]; 

Selection: TYPC = RECORD 

[ 

leftx, rightx: xCoord, 

leFtline, right! ine: fNTEGFR, 

leftindex. rightindex: Streamlndex 
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]; 



-- Procedures Implementing Selections 

ResolveBugToPosition: PUBLIC PROCEDURE 

[w: WindowHandle, x: xCoord, y: yCoord] 

RETURNS[INTEGER, xCoord, INTEGER, Streamlndex] ; 
MakeSelection: PUBLIC PROCEDURE 

[w: WindowHandle, sel : POINTER TO Selection]; 
MarkSelection: PUBLIC PROCEDURE 

[w: WindowHandle]: 
GetSelection: PUBLIC PROCEDURE 

[w: WindowHandle] 

RETURi\IS[STRING]; 
UpdateSelection: PUBLIC PROCEDURE 

[w: WindowHandle]; 

END. of windowdefs 



